(* Content-type: application/vnd.wolfram.mathematica *)

(*** Wolfram Notebook File ***)
(* http://www.wolfram.com/nb *)

(* CreatedBy='Mathematica 10.4' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       158,          7]
NotebookDataLength[     18438,        641]
NotebookOptionsPosition[     12054,        446]
NotebookOutlinePosition[     16218,        558]
CellTagsIndexPosition[     16047,        551]
WindowTitle->Isolate
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{
Cell[BoxData[GridBox[{
   {Cell["FEYN CALC SYMBOL", "PacletNameCell"], Cell[TextData[Cell[BoxData[
     ActionMenuBox[
      FrameBox[
       InterpretationBox[Cell[TextData[{
         "URL",
         StyleBox[" \[FilledDownTriangle]", "AnchorBarArrow",
          StripOnInput->False]
        }]],
        TextCell[
         Row[{"URL", 
           Style[" \[FilledDownTriangle]", "AnchorBarArrow"]}]]],
       StripOnInput->False], {"\<\"FeynCalc/ref/Isolate\"\>":>
      None, "\<\"Copy Wolfram Documentation Center URL\"\>":>
      Module[{DocumentationSearch`Private`nb$}, 
       DocumentationSearch`Private`nb$ = NotebookPut[
          Notebook[{
            Cell["FeynCalc/ref/Isolate"]}, Visible -> False]]; 
       SelectionMove[DocumentationSearch`Private`nb$, All, Notebook]; 
       FrontEndTokenExecute[DocumentationSearch`Private`nb$, "Copy"]; 
       NotebookClose[DocumentationSearch`Private`nb$]; Null], 
      Delimiter, "\<\"Copy web URL\"\>":>
      Module[{DocumentationSearch`Private`nb$}, 
       DocumentationSearch`Private`nb$ = NotebookPut[
          Notebook[{
            Cell[
             BoxData[
              MakeBoxes[
               Hyperlink[
               "http://reference.wolfram.com/language/FeynCalc/ref/Isolate.\
html"], StandardForm]], "Input", TextClipboardType -> "PlainText"]}, Visible -> 
           False]]; SelectionMove[
        DocumentationSearch`Private`nb$, All, Notebook]; 
       FrontEndTokenExecute[DocumentationSearch`Private`nb$, "Copy"]; 
       NotebookClose[DocumentationSearch`Private`nb$]; 
       Null], "\<\"Go to web URL\"\>":>FrontEndExecute[{
        NotebookLocate[{
          URL[
           StringJoin[
            If[
             TrueQ[DocumentationBuild`Make`Private`wsmlinkQ$174675], 
             "http://reference.wolfram.com/system-modeler/", 
             "http://reference.wolfram.com/language/"], 
            "FeynCalc/ref/Isolate", ".html"]], None}]}]},
      Appearance->None,
      MenuAppearance->Automatic,
      MenuStyle->"URLMenu"]],
     LineSpacing->{1.4, 0}]], "AnchorBar"]}
  }]], "AnchorBarGrid",
 GridBoxOptions->{GridBoxItemSize->{"Columns" -> {
     Scaled[0.65], {
      Scaled[0.34]}}, "ColumnsIndexed" -> {}, "Rows" -> {{1.}}, 
   "RowsIndexed" -> {}}},
 CellID->1],

Cell[TextData[{
 Cell["Isolate", "ObjectName"],
 Cell[BoxData[
  InterpretationBox[
   StyleBox[
    GraphicsBox[{},
     BaselinePosition->Baseline,
     ImageSize->{8, 0}],
    CacheGraphics->False],
   Spacer[8]]]],
 Cell[BoxData[""], "ObjectNameTranslation"]
}], "ObjectNameGrid"],

Cell[CellGroupData[{

Cell[BoxData[GridBox[{
   {"", Cell[TextData[{
     Cell[BoxData[
      RowBox[{"Isolate", "[", "expr", "]"}]], "InlineFormula"],
     " \[LineSeparator]",
     "substitutes abbreviations KK[i] for all Plus[...] (sub-sums) in expr. \
The inserted KK[i] have head HoldForm. Isolate[expr, varlist] substitutes \
KK[i] for all subsums in expr which are free of any occurence of a member of \
the list varlist. Instead of KK any other head or a list of names of the \
abbreviations may be specified with the option IsolateNames."
    }]]}
  }]], "Usage",
 GridBoxOptions->{
 GridBoxBackground->{
  "Columns" -> {{None}}, "ColumnsIndexed" -> {}, "Rows" -> {{None}}, 
   "RowsIndexed" -> {}}},
 CellID->982511436],

Cell[CellGroupData[{

Cell[TextData[Cell[BoxData[
 ButtonBox[Cell[TextData[{
   Cell[BoxData[
    InterpretationBox[
     StyleBox[
      GraphicsBox[{},
       BaselinePosition->Baseline,
       ImageSize->{6, 0}],
      CacheGraphics->False],
     Spacer[6]]]],
   "Details"
  }], "NotesFrameText"],
  Appearance->{Automatic, None},
  BaseStyle->None,
  ButtonFunction:>(FrontEndExecute[{
     FrontEnd`SelectionMove[
      FrontEnd`SelectedNotebook[], All, ButtonCell], 
     FrontEndToken["OpenCloseGroup"], 
     FrontEnd`SelectionMove[
      FrontEnd`SelectedNotebook[], After, CellContents]}]& ),
  Evaluator->None,
  Method->"Preemptive"]]]], "NotesSection",
 WholeCellGroupOpener->True,
 CellGroupingRules->{"SectionGrouping", 50},
 CellID->1342222497],

Cell["", "SectionHeaderSpacer"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Options", "[", "Isolate", "]"}]], "Input",
 CellTags->"Isolate",
 CellLabel->"In[79]:=",
 CellID->2088060696],

Cell[BoxData[
 FormBox[
  RowBox[{"{", 
   RowBox[{
    RowBox[{"IsolateNames", "\[Rule]", "KK"}], ",", 
    RowBox[{"IsolatePrint", "\[Rule]", "False"}], ",", 
    RowBox[{"IsolateFast", "\[Rule]", "False"}], ",", 
    RowBox[{"IsolateSplit", "\[Rule]", "\[Infinity]"}], ",", 
    RowBox[{"IsolateTimes", "\[Rule]", "False"}], ",", 
    RowBox[{"IsolatePlus", "\[Rule]", "False"}]}], "}"}], 
  TraditionalForm]], "Output",
 ImageSize->{371, 35},
 ImageMargins->{{0, 0}, {0, 0}},
 ImageRegion->{{0, 1}, {0, 1}},
 CellTags->"Isolate",
 CellLabel->"Out[79]="]
}, Open  ]]
}, Closed]]
}, Open  ]],

Cell[CellGroupData[{

Cell[TextData[{
 Cell[BoxData[
  InterpretationBox[
   StyleBox[
    GraphicsBox[{},
     BaselinePosition->Baseline,
     ImageSize->{6, 0}],
    CacheGraphics->False],
   Spacer[6]]]],
 "Examples",
 "\[NonBreakingSpace]\[NonBreakingSpace]",
 Cell["(1)", "ExampleCount"]
}], "PrimaryExamplesSection",
 WholeCellGroupOpener->True,
 CellTags->"PrimaryExamplesSection",
 CellID->1435130856],

Cell[CellGroupData[{

Cell[TextData[{
 "Basic Examples",
 "\[NonBreakingSpace]\[NonBreakingSpace]",
 Cell["(1)", "ExampleCount"]
}], "ExampleSection", "ExampleSection",
 WholeCellGroupOpener->True,
 CellID->1933483265],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"t0", "=", 
  RowBox[{"Isolate", "[", 
   RowBox[{"a", "+", "b"}], "]"}]}]], "Input",
 CellTags->"Isolate",
 CellLabel->"In[1]:=",
 CellID->1761911845],

Cell[BoxData[
 FormBox[
  TagBox[
   RowBox[{"KK", "(", "24", ")"}],
   HoldForm], TraditionalForm]], "Output",
 ImageSize->{54, 16},
 ImageMargins->{{0, 0}, {0, 0}},
 ImageRegion->{{0, 1}, {0, 1}},
 CellTags->"Isolate",
 CellLabel->"Out[1]="]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"t1", "=", 
  RowBox[{"Isolate", "[", 
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{"(", 
       RowBox[{"a", "+", "b"}], ")"}], " ", "f"}], " ", "+", " ", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"c", "+", "d"}], ")"}], " ", "f"}], " ", "+", " ", "e"}], ",", 
    "f"}], "]"}]}]], "Input",
 CellTags->"Isolate",
 CellLabel->"In[2]:=",
 CellID->1164516818],

Cell[BoxData[
 FormBox[
  RowBox[{"e", "+", 
   RowBox[{"f", " ", 
    TagBox[
     RowBox[{"KK", "(", "24", ")"}],
     HoldForm]}], "+", 
   RowBox[{"f", " ", 
    TagBox[
     RowBox[{"KK", "(", "25", ")"}],
     HoldForm]}]}], TraditionalForm]], "Output",
 ImageSize->{173, 16},
 ImageMargins->{{0, 0}, {0, 0}},
 ImageRegion->{{0, 1}, {0, 1}},
 CellTags->"Isolate",
 CellLabel->"Out[2]="]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"StandardForm", "[", "t1", "]"}]], "Input",
 CellTags->"Isolate",
 CellLabel->"In[3]:=",
 CellID->810104736],

Cell[BoxData[
 RowBox[{"e", "+", 
  RowBox[{"f", " ", 
   TagBox[
    RowBox[{"KK", "[", "24", "]"}],
    HoldForm]}], "+", 
  RowBox[{"f", " ", 
   TagBox[
    RowBox[{"KK", "[", "25", "]"}],
    HoldForm]}]}]], "Output",
 ImageSize->{166, 15},
 ImageMargins->{{0, 0}, {0, 0}},
 ImageRegion->{{0, 1}, {0, 1}},
 CellTags->"Isolate",
 CellLabel->"Out[3]//StandardForm="]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"t0", ",", " ", "t1", ",", " ", 
   RowBox[{"ReleaseHold", "[", "t1", "]"}]}], "}"}]], "Input",
 CellTags->"Isolate",
 CellLabel->"In[4]:=",
 CellID->113729976],

Cell[BoxData[
 FormBox[
  RowBox[{"{", 
   RowBox[{
    TagBox[
     RowBox[{"KK", "(", "24", ")"}],
     HoldForm], ",", 
    RowBox[{"e", "+", 
     RowBox[{"f", " ", 
      TagBox[
       RowBox[{"KK", "(", "24", ")"}],
       HoldForm]}], "+", 
     RowBox[{"f", " ", 
      TagBox[
       RowBox[{"KK", "(", "25", ")"}],
       HoldForm]}]}], ",", 
    RowBox[{
     RowBox[{"f", " ", 
      RowBox[{"(", 
       RowBox[{"a", "+", "b"}], ")"}]}], "+", 
     RowBox[{"f", " ", 
      RowBox[{"(", 
       RowBox[{"c", "+", "d"}], ")"}]}], "+", "e"}]}], "}"}], 
  TraditionalForm]], "Output",
 ImageSize->{423, 16},
 ImageMargins->{{0, 0}, {0, 0}},
 ImageRegion->{{0, 1}, {0, 1}},
 CellTags->"Isolate",
 CellLabel->"Out[4]="]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Isolate", "[", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"a", "[", "z", "]"}], " ", 
     RowBox[{"(", 
      RowBox[{"b", "+", 
       RowBox[{"c", " ", 
        RowBox[{"(", 
         RowBox[{"y", "+", "z"}], ")"}]}]}], ")"}]}], "+", 
    RowBox[{
     RowBox[{"d", "[", "z", "]"}], " ", 
     RowBox[{"(", 
      RowBox[{"y", "+", "z"}], ")"}]}]}], ",", 
   RowBox[{"{", 
    RowBox[{"a", ",", "d"}], "}"}], ",", 
   RowBox[{"IsolateNames", "\[Rule]", "fF"}]}], "]"}]], "Input",
 CellTags->"Isolate",
 CellLabel->"In[5]:=",
 CellID->689489417],

Cell[BoxData[
 FormBox[
  RowBox[{
   RowBox[{
    TagBox[
     RowBox[{"fF", "(", "27", ")"}],
     HoldForm], " ", 
    RowBox[{"a", "(", "z", ")"}]}], "+", 
   RowBox[{
    TagBox[
     RowBox[{"fF", "(", "26", ")"}],
     HoldForm], " ", 
    RowBox[{"d", "(", "z", ")"}]}]}], TraditionalForm]], "Output",
 ImageSize->{175, 16},
 ImageMargins->{{0, 0}, {0, 0}},
 ImageRegion->{{0, 1}, {0, 1}},
 CellTags->"Isolate",
 CellLabel->"Out[5]="]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"??", "fF"}]], "Input",
 CellTags->"Isolate",
 CellLabel->"In[6]:=",
 CellID->1089652184],

Cell[CellGroupData[{

Cell["Global`fF", "Print", "PrintUsage",
 CellTags->{"Info-e2b39ee4-0424-4b02-a1ac-880dc8e10ae5", "Isolate"}],

Cell[BoxData[
 InterpretationBox[GridBox[{
    {GridBox[{
       {
        RowBox[{
         RowBox[{"fF", "[", "26", "]"}], "=", 
         RowBox[{"y", "+", "z"}]}]},
       {" "},
       {
        RowBox[{
         RowBox[{"fF", "[", "27", "]"}], "=", 
         RowBox[{"b", "+", 
          RowBox[{"c", " ", 
           RowBox[{"\<\"HoldForm\"\>", "[", 
            RowBox[{"fF", "[", "26", "]"}], "]"}]}]}]}]}
      },
      BaselinePosition->{Baseline, {1, 1}},
      GridBoxAlignment->{
       "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
        "RowsIndexed" -> {}},
      GridBoxItemSize->{"Columns" -> {{
           Scaled[0.999]}}, "ColumnsIndexed" -> {}, "Rows" -> {{1.}}, 
        "RowsIndexed" -> {}}]}
   },
   BaselinePosition->{Baseline, {1, 1}},
   GridBoxAlignment->{
    "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
     "RowsIndexed" -> {}}],
  Definition[$CellContext`fF],
  Editable->False]], "Print",
 CellTags->{"Info-e2b39ee4-0424-4b02-a1ac-880dc8e10ae5", "Isolate"}]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Isolate", "[", 
  RowBox[{
   RowBox[{"a", "-", "b", "-", "c", "-", "d", "-", "e"}], ",", 
   RowBox[{"IsolateNames", "\[Rule]", "l"}], ",", 
   RowBox[{"IsolateSplit", "\[Rule]", "15"}]}], "]"}]], "Input",
 CellTags->"Isolate",
 CellLabel->"In[7]:=",
 CellID->2019918870],

Cell[BoxData[
 FormBox[
  TagBox[
   RowBox[{"l", "(", "29", ")"}],
   HoldForm], TraditionalForm]], "Output",
 ImageSize->{41, 16},
 ImageMargins->{{0, 0}, {0, 0}},
 ImageRegion->{{0, 1}, {0, 1}},
 CellTags->"Isolate",
 CellLabel->"Out[7]="]
}, Open  ]],

Cell[BoxData[
 RowBox[{"Clear", "[", 
  RowBox[{"t0", ",", "t1", ",", "l", ",", "fF"}], "]"}]], "Input",
 CellTags->"Isolate",
 CellLabel->"In[8]:=",
 CellID->808271947]
}, Open  ]]
}, Open  ]],

Cell[" ", "FooterCell"]
},
Saveable->False,
ScreenStyleEnvironment->"Working",
WindowSize->{725, 750},
WindowMargins->{{-10, Automatic}, {Automatic, -8}},
WindowTitle->"Isolate",
TaggingRules->{
 "ModificationHighlight" -> False, "ColorType" -> "SymbolColor", "LinkTrails" -> 
  GridBox[{{
      RowBox[{
        ButtonBox[
        "FeynCalc", ButtonData -> "paclet:FeynCalc/guide/FeynCalc", 
         BaseStyle -> {"Link", "DockedLinkTrail"}]}]}}, ColumnAlignments -> 
    Left], "HasOptions" -> False, "ExampleCounter" -> 1, "NeedPlatMsgIn" -> 
  None, "RootCaptions" -> "", 
  "Metadata" -> {
   "built" -> "{2020, 6, 20, 19, 8, 11.976747}", 
    "history" -> {"9.0", "", "", ""}, "context" -> "FeynCalc`", 
    "keywords" -> {}, "specialkeywords" -> {}, 
    "tutorialcollectionlinks" -> {}, "index" -> True, "label" -> 
    "Feyn Calc Symbol", "language" -> "en", "paclet" -> "FeynCalc", "status" -> 
    "None", "summary" -> 
    "Isolate[expr] substitutes abbreviations KK[i] for all Plus[...] \
(sub-sums) in expr. The inserted KK[i] have head HoldForm. Isolate[expr, \
varlist] substitutes KK[i] for all subsums in expr which are free of any \
occurence of a member of the list varlist. Instead of KK any other head or a \
list of names of the abbreviations may be specified with the option \
IsolateNames.", "synonyms" -> {}, "tabletags" -> {}, "title" -> "Isolate", 
    "titlemodifier" -> "", "windowtitle" -> "Isolate", "type" -> "Symbol", 
    "uri" -> "FeynCalc/ref/Isolate"}, "SearchTextTranslated" -> ""},
CellContext->"Global`",
FrontEndVersion->"10.4 for Linux x86 (64-bit) (April 11, 2016)",
StyleDefinitions->Notebook[{
   Cell[
    StyleData[
    StyleDefinitions -> FrontEnd`FileName[{"Wolfram"}, "Reference.nb"]]], 
   Cell[
    StyleData["Input"], CellContext -> "Global`"], 
   Cell[
    StyleData["Output"], CellContext -> "Global`"]}, Visible -> False, 
  FrontEndVersion -> "10.4 for Linux x86 (64-bit) (April 11, 2016)", 
  StyleDefinitions -> "Default.nb"]
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{
 "Isolate"->{
  Cell[4690, 141, 133, 4, 70, "Input",
   CellTags->"Isolate",
   CellID->2088060696],
  Cell[4826, 147, 557, 15, 56, "Output",
   CellTags->"Isolate"],
  Cell[6078, 198, 174, 6, 27, "Input",
   CellTags->"Isolate",
   CellID->1761911845],
  Cell[6255, 206, 243, 9, 37, "Output",
   CellTags->"Isolate"],
  Cell[6535, 220, 396, 14, 27, "Input",
   CellTags->"Isolate",
   CellID->1164516818],
  Cell[6934, 236, 392, 15, 37, "Output",
   CellTags->"Isolate"],
  Cell[7363, 256, 131, 4, 27, "Input",
   CellTags->"Isolate",
   CellID->810104736],
  Cell[7497, 262, 369, 14, 51, "Output",
   CellTags->"Isolate"],
  Cell[7903, 281, 199, 6, 27, "Input",
   CellTags->"Isolate",
   CellID->113729976],
  Cell[8105, 289, 728, 28, 37, "Output",
   CellTags->"Isolate"],
  Cell[8870, 322, 578, 20, 27, "Input",
   CellTags->"Isolate",
   CellID->689489417],
  Cell[9451, 344, 442, 17, 37, "Output",
   CellTags->"Isolate"],
  Cell[9930, 366, 112, 4, 27, "Input",
   CellTags->"Isolate",
   CellID->1089652184],
  Cell[10067, 374, 109, 1, 42, "Print",
   CellTags->{"Info-e2b39ee4-0424-4b02-a1ac-880dc8e10ae5", "Isolate"}],
  Cell[10179, 377, 1047, 30, 57, "Print",
   CellTags->{"Info-e2b39ee4-0424-4b02-a1ac-880dc8e10ae5", "Isolate"}],
  Cell[11275, 413, 296, 8, 27, "Input",
   CellTags->"Isolate",
   CellID->2019918870],
  Cell[11574, 423, 242, 9, 37, "Output",
   CellTags->"Isolate"],
  Cell[11831, 435, 169, 5, 27, "Input",
   CellTags->"Isolate",
   CellID->808271947]},
 "PrimaryExamplesSection"->{
  Cell[5444, 169, 388, 15, 31, "PrimaryExamplesSection",
   CellTags->"PrimaryExamplesSection",
   CellID->1435130856]},
 "Info-e2b39ee4-0424-4b02-a1ac-880dc8e10ae5"->{
  Cell[10067, 374, 109, 1, 42, "Print",
   CellTags->{"Info-e2b39ee4-0424-4b02-a1ac-880dc8e10ae5", "Isolate"}],
  Cell[10179, 377, 1047, 30, 57, "Print",
   CellTags->{"Info-e2b39ee4-0424-4b02-a1ac-880dc8e10ae5", "Isolate"}]}
 }
*)
(*CellTagsIndex
CellTagsIndex->{
 {"Isolate", 14128, 493},
 {"PrimaryExamplesSection", 15628, 539},
 {"Info-e2b39ee4-0424-4b02-a1ac-880dc8e10ae5", 15797, 543}
 }
*)
(*NotebookFileOutline
Notebook[{
Cell[579, 21, 2269, 53, 53, "AnchorBarGrid",
 CellID->1],
Cell[2851, 76, 284, 11, 45, "ObjectNameGrid"],
Cell[CellGroupData[{
Cell[3160, 91, 707, 16, 136, "Usage",
 CellID->982511436],
Cell[CellGroupData[{
Cell[3892, 111, 739, 24, 31, "NotesSection",
 CellGroupingRules->{"SectionGrouping", 50},
 CellID->1342222497],
Cell[4634, 137, 31, 0, 70, "SectionHeaderSpacer"],
Cell[CellGroupData[{
Cell[4690, 141, 133, 4, 70, "Input",
 CellTags->"Isolate",
 CellID->2088060696],
Cell[4826, 147, 557, 15, 56, "Output",
 CellTags->"Isolate"]
}, Open  ]]
}, Closed]]
}, Open  ]],
Cell[CellGroupData[{
Cell[5444, 169, 388, 15, 31, "PrimaryExamplesSection",
 CellTags->"PrimaryExamplesSection",
 CellID->1435130856],
Cell[CellGroupData[{
Cell[5857, 188, 196, 6, 26, "ExampleSection",
 CellID->1933483265],
Cell[CellGroupData[{
Cell[6078, 198, 174, 6, 27, "Input",
 CellTags->"Isolate",
 CellID->1761911845],
Cell[6255, 206, 243, 9, 37, "Output",
 CellTags->"Isolate"]
}, Open  ]],
Cell[CellGroupData[{
Cell[6535, 220, 396, 14, 27, "Input",
 CellTags->"Isolate",
 CellID->1164516818],
Cell[6934, 236, 392, 15, 37, "Output",
 CellTags->"Isolate"]
}, Open  ]],
Cell[CellGroupData[{
Cell[7363, 256, 131, 4, 27, "Input",
 CellTags->"Isolate",
 CellID->810104736],
Cell[7497, 262, 369, 14, 51, "Output",
 CellTags->"Isolate"]
}, Open  ]],
Cell[CellGroupData[{
Cell[7903, 281, 199, 6, 27, "Input",
 CellTags->"Isolate",
 CellID->113729976],
Cell[8105, 289, 728, 28, 37, "Output",
 CellTags->"Isolate"]
}, Open  ]],
Cell[CellGroupData[{
Cell[8870, 322, 578, 20, 27, "Input",
 CellTags->"Isolate",
 CellID->689489417],
Cell[9451, 344, 442, 17, 37, "Output",
 CellTags->"Isolate"]
}, Open  ]],
Cell[CellGroupData[{
Cell[9930, 366, 112, 4, 27, "Input",
 CellTags->"Isolate",
 CellID->1089652184],
Cell[CellGroupData[{
Cell[10067, 374, 109, 1, 42, "Print",
 CellTags->{"Info-e2b39ee4-0424-4b02-a1ac-880dc8e10ae5", "Isolate"}],
Cell[10179, 377, 1047, 30, 57, "Print",
 CellTags->{"Info-e2b39ee4-0424-4b02-a1ac-880dc8e10ae5", "Isolate"}]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[11275, 413, 296, 8, 27, "Input",
 CellTags->"Isolate",
 CellID->2019918870],
Cell[11574, 423, 242, 9, 37, "Output",
 CellTags->"Isolate"]
}, Open  ]],
Cell[11831, 435, 169, 5, 27, "Input",
 CellTags->"Isolate",
 CellID->808271947]
}, Open  ]]
}, Open  ]],
Cell[12027, 444, 23, 0, 41, "FooterCell"]
}
]
*)

(* End of internal cache information *)

